home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvapup.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
14KB
|
622 lines
/************************************************************************
* アップロード処理 *
************************************************************************/
/* アップロード種類判定 */
%UPCHK{
A:=1;
%UPDATA @read(TEMPPATH|{\PVAPUP.DAT});
loop({
%UPTYPE @nth(@getline(UPDATA,A,{1}),1,{/});
case (UPTYPE,
{テキストメール}, {UPTMAIL;im({Yes})},
{バイナリメール}, {UPBMAIL;im({Yes})},
{事務局宛メール}, {UPJMAIL;im({Yes})},
{NIFTY連携メール}, {UPNIFMAIL;im({Yes})},
{不在通知}, {UPFUZAI;im({Yes})},
{プロフィール}, {UPPROF;im({Yes})},
{フォーラム}, {UPFORUM;im({Yes})},
{SIG内会議室}, {UPKAIGI;im({Yes})},
{BBS}, {UPBBS;im({Yes})},
{CUG内掲示板}, {UPCUGKEI;im({Yes})},
{CUG内会議室}, {UPCUGKAI;im({Yes})},
{OLT広場}, {UPOLT;im({Yes})},
{SIG内OLT広場}, {UPSIGOLT;im({Yes})},
{CUG内OLT広場}, {UPCUGOLT;im({Yes})},
{SIG内OSL}, {UPOSL;im({Yes})},
{CUG内OSL}, {UPCUGOSL;im({Yes})});
});
delfile(TEMPPATH|{\PVAPUP.DAT});
};
/* テキストメールの送信 */
%UPTMAIL{
var AD[8];
var SENDID1[50];
var SENDID2[8];
type({J MAIL\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
footnote(SENDID1|{にテキストメールを送信しています});
type({2\n});
WAIT;
%mailcom @nth(@getline(UPDATA,A,{1}),5,{/});
case(mailcom,{BC},{type({BC\n});WAIT},{無し},);
loop({
SENDID2:=@head(SENDID1,{,});
type(SENDID2|{\n});
WAIT;
SENDID1:=@body(SENDID1,{,});
case(SENDID1,{},{im({No})},,{im({Yes})});
});
AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
case(AD={},{No},sendad,{Yes},);
type({\n});
wait ({60},STOP,
{終了します。}, uptmail,
{訂正}, {WAIT;SNDMSG({okasi_f.snd});
display({\n相手が不在です\n});A:=A+1});
type({S\n});
WAIT;
};
%uptmail{
wait({2});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
type(TITLE|{\n});
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
A:=A+1;
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
};
/* バイナリメールの送信 */
%UPBMAIL{
var AD[8];
var SENDID1[50];
var SENDID2[8];
type({J MAIL\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
footnote(SENDID1|{にバイナリメールを送信しています});
type({2\n});
WAIT;
%mailcom @nth(@getline(UPDATA,A,{1}),5,{/});
case(mailcom,{BC},{type({BC\n});WAIT},{無し},);
loop({
SENDID2:=@head(SENDID1,{,});
type(SENDID2|{\n});
WAIT;
SENDID1:=@body(SENDID1,{,});
case(SENDID1,{},{im({No})},,{im({Yes})});
});
AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
case(AD={},{No},sendad,{Yes},);
type({UP\n});
wait ({60},STOP,
{ファイルの属性を入力して下さい。},
{WAIT;upbmail},
{訂正},
{WAIT;SNDMSG({okasi_f.snd});
display({\n相手が不在です\n});A:=A+1});
type({S\n});
WAIT;
};
%upbmail{
type({2\n});
WAIT;
type({2\n});
wait({20},STOP,{入力して下さい。},);
wait({2});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
type(TITLE|{\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n})},
{よろしいですか=},{type({\n})});
wait({60},STOP,{起動して下さい。},{
wait({3});
%sendfile @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
case (DIR2={},
{No},{command(DIR2|{\QV -s }|sendfile)},
{Yes},{command({QV -s }|sendfile)});});
wait({2});type({\n});
WAIT;
A:=A+1;
};
/* 送信日の送信 */
%sendad{
AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
@getchar(AD,{5},{2});
type({AD\n});
WAIT;
type(AD|{\n});
WAIT;
};
/* PC-VAN事務局宛メールの送信 */
%UPJMAIL{
type({J MAIL\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
footnote({PC-VAN事務局宛メールを送信しています});
type({6\n});
wait({60},STOP,{終了します。},);
upjmail;
};
%upjmail{
wait({2});
%TITLE @nth(@getline(UPDATA,A,{1}),2,{/});
type(TITLE|{\n});
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
A:=A+1;
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
};
/* NIFTY連携メールの送信 */
%UPNIFMAIL{
var AD[6];
var SENDID1[50];
var SENDID2[8];
type({J MAIL\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
SENDID1:=@nth(@getline(UPDATA,A,{1}),2,{/});
footnote({NIFTY-Serveの}|SENDID1|{にメールを送信しています});
type({2\n});
WAIT;
type({MHSX400\n});
WAIT;
AD:=@nth(@getline(UPDATA,A,{1}),4,{/});
case(AD={},{No},sendad,{Yes},);
type({\n});
wait ({60},STOP,
{終了します。}, upnifmail);
type({S\n});
WAIT;
};
%upnifmail{
wait({2});
%TITLE @nth(@getline(UPDATA,A,{1}),3,{/});
type(TITLE|{\n});
wait({2});
loop({
SENDID2:=@head(SENDID1,{,});
type({TO:NIFTY#}|SENDID2|{\n});
wait({2});
SENDID1:=@body(SENDID1,{,});
case(SENDID1,{},{im({No})},,{im({Yes})});
});
type({\n});
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
A:=A+1;
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
};
/* プロフィールの登録 */
%UPPROF{
footnote({プロフィールを登録しています});
type({J TOROKU\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
type({4\n});
WAIT;
type({1\n});
wait({60},STOP,{終了します。},);
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
A:=A+1;
};
/* 不在通知の登録 */
%UPFUZAI{
var AD[8];
footnote({不在通知を登録しています});
type({J MAIL\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
type({5\n});
WAIT;
type({1\n});
WAIT;
AD:=@nth(@getline(UPDATA,A,{1}),2,{/});
AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
@getchar(AD,{5},{2});
type(AD|{\n});
WAIT;
AD:=@nth(@getline(UPDATA,A,{1}),3,{/});
AD:=@getchar(AD,{1},{2})|{/}|@getchar(AD,{3},{2})|{/}|
@getchar(AD,{5},{2});
type(AD|{\n});
wait({120},STOP,{よろしいですか(Y,N,J)=},,
{よろしいですか=},);
type({\n});
wait({60},STOP,{されません。},);
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
A:=A+1;
};
/* 各メニューにジャンプして各処理をする */
%Jump{
[jump]
type({J }|JUMP|{\n});
loop({
wait ({60},STOP,
{訂正}, {WAIT;SNDMSG({okasi_f.snd});
display({\nジャンプコードが間違っています\n});
A:=A+1;im({No})},
{リターンキーを押して下さい=},
{type({\n});im({Yes})},
{よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{,J)=}, {jump;im({No})},
{番号またはコマンド=},
{jump;im({No})});
});
};
/* フォーラムへの送信 */
%UPFORUM{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%NUMBER @nth(@getline(UPDATA,A,{1}),3,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
footnote(JUMP|{の}|NUMBER|{番フォーラムに書き込んでいます});
%sig{
type({3\n});
WAIT;
WMES1;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
};
/* BBSへの送信 */
%UPBBS{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%NUMBER @nth(@getline(UPDATA,A,{1}),3,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
footnote(JUMP|{の}|NUMBER|{番に書き込んでいます});
%bbs{
WMES1;
type({F\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{bbs},,{WHERE2:=JUMP;Jump({bbs})});
};
/* SIG内会議室への送信 */
%UPKAIGI{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%NUMBER @nth(@getline(UPDATA,A,{1}),3,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
footnote(JUMP|{の}|NUMBER|{番会議室に書き込んでいます});
%sig{
type({5\n});
WAIT;
WMES2;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
};
/* SIG内OLT広場への送信 */
%UPSIGOLT{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),3,{/});
footnote(JUMP|{のOLT広場に書き込んでいます});
%sig{
type({6\n});
WAIT;
type({3\n});
WAIT;
type({4\n});
wait({60},STOP,{登録されません。},);
WMES4;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
};
/* CUGにジャンプし各処理をする */
%JUMPCUG{
[jumpcug]
type({J }|JUMP|{\n});
loop({
wait({60},STOP, {よろしいですか(Y,N)=},
{type({\n});im({Yes})},
{よろしいですか=},
{type({\n});im({Yes})},
{未契約},{WAIT;
SNDMSG({okasi_f.snd});
display({\未契約のCUGです\n});
A:=A+1;im({No})},
{訂正}, {WAIT;
SNDMSG({okasi_f.snd});
display({\nCUGコードが間違っています\n});
A:=A+1;im({No})},
{PASSWORD:},
{type(PASS|{\n});
WAITa;
jumpcug;
im({No})});
});
};
/* CUG内掲示板への送信 */
%UPCUGKEI{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%PASS @nth(@getline(UPDATA,A,{1}),3,{/});
%MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
%NUMBER @nth(@getline(UPDATA,A,{1}),5,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),6,{/});
footnote(JUMP|{の}|NUMBER|{番掲示板に書き込んでいます});
%cug{
type(MAINNUM|{\n});
WAIT;
WMES1;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
};
/* CUG内会議室への送信 */
%UPCUGKAI{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%PASS @nth(@getline(UPDATA,A,{1}),3,{/});
%MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
%NUMBER @nth(@getline(UPDATA,A,{1}),5,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),6,{/});
footnote(JUMP|{の}|NUMBER|{番会議室に書き込んでいます});
%cug{
type(MAINNUM|{\n});
WAIT;
WMES2;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
};
/* CUG内OLT広場への送信 */
%UPCUGOLT{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%PASS @nth(@getline(UPDATA,A,{1}),3,{/});
%MAINNUM@nth(@getline(UPDATA,A,{1}),4,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),5,{/});
footnote(JUMP|{のOLT広場に書き込んでいます});
%cug{
type(MAINNUM|{\n});
WAIT;
type({3\n});
WAIT;
type({4\n});
wait({60},STOP,{登録されません。},);
WMES4;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
};
/* OLT広場への送信 */
%UPOLT{
%TITLE @nth(@getline(UPDATA,A,{1}),2,{/});
footnote({OLT広場に書き込んでいます});
%JUMPOLT{
type({J OLT\n});
wait({60},STOP, {よろしいですか(Y,N)=},{type({\n});WAIT},
{よろしいですか=},{type({\n});WAIT},
{番号またはコマンド=},,
{,J)=},);
};
case(WHERE2=JUMP,{No},{WHERE2:=JUMP;JUMPOLT});
type({3\n});
WAIT;
type({4\n});
wait({60},STOP,{登録されません。},);
WMES4;
};
/* 書き込むボード番号送信 */
%WMES1{
type({W}|NUMBER|{\n});
wait ({60},STOP,
{登録できません。}, {WAIT;SNDMSG({okasi_f.snd});
display({\nボード番号が}|
{間違っています\n});A:=A+1},
{登録されません。}, {WMES3});
};
/* 書き込む会議室番号の送信 */
%WMES2{
type(NUMBER|{\n});
wait ({60},STOP,
{訂正}, {WAIT;SNDMSG({okasi_f.snd});
display({\n会議室番号が間違っています\n});
A:=A+1},
{,J)=}, {type({W\n});
wait({60},STOP,{登録されません。},);
WMES3},
{番号またはコマンド=},
{type({W\n});
wait({60},STOP,{登録されません。},);
WMES3});
};
/* 文書の送信(フォーラム・BBS・会議室用) */
%WMES3{
wait({2});
type(TITLE|{\n});
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
A:=A+1;
};
/* 文書の送信(OLT広場用) */
%WMES4{
wait({2});
type(TITLE|{\n});
wait({2});
%SENDFILE @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
send(SENDFILE);
type({\n});
type({..\n});
WAIT;
type({G\n});
WAIT;
A:=A+1;
};
/* SIG内OSLへのアップロード */
%UPOSL{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%OSLNUM @nth(@getline(UPDATA,A,{1}),3,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),4,{/});
%SENDFILE @nth(@getline(UPDATA,A,{1}),5,{/});
%sendfile @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
footnote(JUMP|{の}|OSLNUM|{番OSLにアップロードしています});
%sig{
type({7\n});
WAIT;
uposl;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{sig},,{WHERE2:=JUMP;Jump({sig})});
};
%uposl{
type(OSLNUM|{\n});
WAIT;
type({4\n});
WAIT;
type({2\n});
wait({60},STOP,{起動して下さい。},);
wait({2});
case (DIR2={},
{No}, {command(DIR2|{\QV -s }|SENDFILE)},
{Yes}, {command({QV -s }|SENDFILE)});
wait({2});type({\n});
WAIT;
type({2\n});
wait({60},STOP,{起動して下さい。},);
wait({2});
case (DIR2={},
{No}, {command(DIR2|{\QV -s }|sendfile)},
{Yes}, {command({QV -s }|sendfile)});
wait({2});type({\n});
WAIT;
type({DP\n});
wait({60},STOP,
{未完了},
{B:=@head(@laststr,{\n\n},{.});
B:=@tail(B,{ });
WAIT;
type({WC}|B|{\n});
wait({60},STOP,{入力して下さい。},);
wait({2});
type(TITLE|{\n});
wait({60},STOP, {よろしいですか(Y,N)=},,
{よろしいですか=},);
type({\n});
WAIT;
type({CE}|B|{\n});
WAIT;
A:=A+1;});
};
/* CUG内OSLへのアップロード */
%UPCUGOSL{
%JUMP @nth(@getline(UPDATA,A,{1}),2,{/});
%PASS @nth(@getline(UPDATA,A,{1}),3,{/});
%MAINNUM @nth(@getline(UPDATA,A,{1}),4,{/});
%OSLNUM @nth(@getline(UPDATA,A,{1}),5,{/});
%TITLE @nth(@getline(UPDATA,A,{1}),6,{/});
%SENDFILE @nth(@getline(UPDATA,A,{1}),7,{/});
%sendfile @head(@tail(@getline(UPDATA,A,{1}),{/}),{\n});
footnote(JUMP|{の}|OSLNUM|{番OSLにアップロードしています});
%cug{
type(MAINNUM|{\n});
WAIT;
uposl;
type({M\n});
WAIT;
};
case(WHERE2=JUMP,{Yes},{cug},,{WHERE2:=JUMP;JUMPCUG({cug})});
};
/* 実行 */
UPCHK;